# Test file for anova.auk
# Tim Menzies
# Sept 12, 2012

@include "anova.awk"

function _anovad() {
  return 1 == _anovad1() && \
         0 == _anovad2() && \
         1 == _anovad3()    \
         ? "OK" : "??"
}
function _anovad1(a,rx) {
  a = s2m(1,rx," 6, 8, 4, 5,3, 3,3")
  a = s2m(a,rx," 8,12, 9,11,6, 8")
  a = s2m(a,rx,"13, 9,11, 8,7,12")
  return ftest(rx)
}
function _anovad2(a,rx) {
  a = s2m(1,rx," 6, 8, 4, 5,3, 3")
  a = s2m(a,rx," 6, 8, 4, 5,3, 3")
  return ftest(rx)
}
function _anovad3(a,rx) {
  a = s2m(1,rx," 6, 8, 4, 5,3, 3")
  a = s2m(a,rx," 60, 80, 40, 50,30, 30")
  return ftest(rx)
}
